home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_303_EachMenu < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.8 KB  |  90 lines
  1. %case sourcefile%
  2.     %if main|hierarchical%
  3.         %if menuname = Apple%
  4.         %elsif menuname = File%
  5.             %genfile Menu.File menuname+M%
  6.         %elsif menuname = Font%
  7.             %genfile Menu.Font menuname+M%
  8.         %else%
  9.             %genfile Menu menuname+M%
  10.         %endif%
  11.     %endif%
  12. %case include%
  13.     %if main|hierarchical%
  14.         %if not menuname = Apple%
  15.             #include "%menuname%M.h"
  16.         %endif%
  17.     %endif%
  18. %case get%
  19.     %MenuName%Menu    = GetMenu (%MenuName%ID);
  20.     %if menuname = Apple%
  21.         AddResMenu (%MenuName%Menu, 'DRVR');
  22.     %elsif menuname = Font%
  23.         AddResMenu (%MenuName%Menu, 'FONT');
  24.     %endif%
  25. %case insert%
  26.     %if main%
  27.         InsertMenu (%MenuName%Menu, 0);
  28.     %elsif hierarchical%
  29.         InsertMenu (%MenuName%Menu, -1);
  30.     %endif%
  31. %case initTitles%
  32.     %if main|hierarchical%
  33.         %if not menuname = Apple%
  34.             Init%MenuName%M ();
  35.         %end if%
  36.     %endif%
  37. %case doApple%
  38.     %if menuname = Apple%
  39.         %for each menuitem gen doItem%
  40.         /*----------*/
  41.         void DoApple (short        itemNr);
  42.         void DoApple (itemNr)
  43.         short            itemNr;
  44.         {
  45.             Str255            name;
  46.             short            refNum;
  47.         
  48.             switch (itemNr) {
  49.             %for each menuitem gen handleItem%
  50.             default:
  51.                     GetItem (AppleMenu, itemNr, name);
  52.                     refNum = OpenDeskAcc (name);
  53.                 break;
  54.             } /*switch*/
  55.         } /*DoApple*/
  56.  
  57.     %endif%
  58. %case dispatch%
  59.     %if main|hierarchical%
  60.         %if menuname = Font%
  61.             case %MenuName%ID:
  62.                     Choose%MenuName% (itemNr);
  63.                 break;
  64.         %else%
  65.             case %MenuName%ID:
  66.                     Do%MenuName% (itemNr);
  67.                 break;
  68.         %endif%
  69.     %endif%
  70. %case menuhandle%
  71.     MenuHandle%        %%MenuName%Menu;
  72. %case externmenuhandle%
  73.     extern MenuHandle%        %%MenuName%Menu;
  74. %case menuID%
  75.     #define %menuname%ID%    %%MenuID% 
  76.     %for each menuitem gen defineItem%
  77. %case enable%
  78.     %if menuname = File%
  79.         menu = FileMenu;
  80.         %for each menuItem gen enableFile%
  81.  
  82.     %elsif menuname = Edit%
  83.         menu = EditMenu;
  84.         if (isFront) {
  85.             %for each menuItem gen enableEdit%
  86.         }
  87.         EnableTitle (EditMenu,     isFront);
  88.  
  89.     %endif%
  90.